home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / amis / scripts / hunt.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-30  |  313b  |  21 lines
  1. /* AMIS File hunter */
  2.  
  3. OPTIONS RESULTS
  4. /*address 'AMISPORT.1'*/
  5.  
  6. 'GetLine'
  7.  
  8. if(left(result,8)='#include') then
  9. do
  10.   PARSE VAR result . '<' File '>'
  11.   if(File="") then 
  12.   do
  13.     PARSE VAR result . '"' File '"'
  14.   end
  15.   File='Include:'||File
  16.   if(exists(File)) then
  17.   do
  18.     'File NAME="'||File||'" OPEN'
  19.   end
  20. end
  21.